unit MultiClassMethod_dxNavBar;

interface
uses
  {$IF CompilerVersion<16}
  Graphics,
  {$ELSE}
  vcl.Graphics,
  {$IFEND}
  Classes,SysUtils,
  AcroMultiClassMethod,
  dxNavBar,dxNavBarCollns;

implementation

procedure Proc_TdxNavBarItem(ATable:IDataLocate; AComponent:TObject; ALCID,ASeqNo:String;AParams:TStringList);
begin
  TdxNavBarItem(AComponent).Caption:=
    GetDisplayValue(ATable,TdxNavBarItem(AComponent).Caption, ALCID, ASeqNo,
      TdxNavBarItem(AComponent),'Caption');
  TdxNavBarItem(AComponent).Hint:=
    GetDisplayValue(ATable,TdxNavBarItem(AComponent).Hint, ALCID, ASeqNo,
      TdxNavBarItem(AComponent),'Hint');
end;

procedure Proc_TdxNavBarGroup(ATable:IDataLocate; AComponent:TObject; ALCID,ASeqNo:String;AParams:TStringList);
begin
  TdxNavBarGroup(AComponent).Caption:=
    GetDisplayValue(ATable,TdxNavBarGroup(AComponent).Caption, ALCID, ASeqNo,
      TdxNavBarGroup(AComponent),'Caption');
  TdxNavBarGroup(AComponent).Hint:=
    GetDisplayValue(ATable,TdxNavBarGroup(AComponent).Hint, ALCID, ASeqNo,
      TdxNavBarGroup(AComponent),'Hint');
end;

initialization
  AcroClassMethodStorage.RegisterClassMethod(TdxNavBarGroup                , Proc_TdxNavBarGroup);
  AcroClassMethodStorage.RegisterClassMethod(TdxNavBarItem                 , Proc_TdxNavBarItem);
finalization
  AcroClassMethodStorage.UnRegisterClassMethod(TdxNavBarGroup);
  AcroClassMethodStorage.UnRegisterClassMethod(TdxNavBarItem);
end.
